REQUIRE "⊂⊃⊂⊃" DELIMITERS;

EXTERNAL STRING SIMPLE PROCEDURE REQSTR(STRING REQ);

EXTERNAL BOOLEAN SIMPLE PROCEDURE ASK(STRING S);

EXTERNAL INTEGER SIMPLE PROCEDURE REQINT(STRING S);


EXTERNAL PROCEDURE OPEN_FILE(REFERENCE INTEGER CH;
	VALUE STRING FIDREQ;INTEGER  M,IB,OB;REFERENCE INTEGER EOFF);

EXTERNAL SIMPLE PROCEDURE INI_OUTPUT;
DEFINE INITIALIZE_OUTPUT"⊂⊃"=⊂INI_OUTPUT⊃;

REQUIRE "IOMODX.REL[AL,HE]" LOAD_MODULE;
REQUIRE UNSTACK_DELIMITERS;